
		Imports Acceso_a_Datos.Datos
		Namespace BO
		Partial Public Class tTitulos



# Region "tEstudios"

		private mtEstudios As New tEstudios

		Public Property tEstudios As tEstudios
        Get
                mtEstudios = mtEstudios.TraerFiltradoListOf("IdEstudio", Me.IdEstudio).Item(0)
        Return mtEstudios
        End Get
        Set
             If ((mtEstudios Is Nothing) Or (Me.tEstudios.Equals(value) = False)) Then
                If Not (Me.tEstudios Is Nothing)
	               Dim oldtEstudios As tEstudios = Me.tEstudios
                   Me.mtEstudios = Nothing
                   oldtEstudios.RemoveListatTitulos(Me)
             	End If
            	If Not (value Is Nothing) Then
                   Me.mtEstudios = value
                   Me.tEstudios.AddListatTitulos(Me)
            	End If
             End If
        End Set
       End Property

# End Region
# Region "tEstudio_x_Solicitud"
	private mlistatEstudio_x_Solicitud As New List (Of tEstudio_x_Solicitud)
Public Property ListatEstudio_x_Solicitud As System.Collections.Generic.List(Of tEstudio_x_Solicitud)
Get
dim mtEstudio_x_Solicitud As New tEstudio_x_Solicitud
mlistatEstudio_x_Solicitud =mtEstudio_x_Solicitud.TraerFiltradoListOf("IdTitulo",Me.IdTitulo)
Return mlistatEstudio_x_Solicitud
End Get
Set
RemoveAllListatEstudio_x_Solicitud()
If Not (Value Is Nothing) Then
Dim otEstudio_x_Solicitud As tEstudio_x_Solicitud
	For Each otEstudio_x_Solicitud in Value
		AddListatEstudio_x_Solicitud(otEstudio_x_Solicitud)
	Next
End If
End Set
End Property


		
		
	   Public Sub AddListatEstudio_x_Solicitud(newtEstudio_x_Solicitud As tEstudio_x_Solicitud)
	If (mlistatEstudio_x_Solicitud Is Nothing) Then
		mlistatEstudio_x_Solicitud = new System.Collections.Generic.List(Of tEstudio_x_Solicitud)
	End If
	If Not mlistatEstudio_x_Solicitud.Contains(newtEstudio_x_Solicitud) Then
		mlistatEstudio_x_Solicitud.Add(newtEstudio_x_Solicitud)
		newtEstudio_x_Solicitud.tTitulos = Me
	End If
End Sub

	   
	   
	   
	   Public Sub RemoveListatEstudio_x_Solicitud(oldtEstudio_x_Solicitud As tEstudio_x_Solicitud)
	If (mlistatEstudio_x_Solicitud.Contains(oldtEstudio_x_Solicitud)) Then
		mlistatEstudio_x_Solicitud.Remove(oldtEstudio_x_Solicitud)
		oldtEstudio_x_Solicitud.tTitulos = Nothing
	End If
End Sub
	
			
			Public Sub RemoveAllListatEstudio_x_Solicitud()
	If Not (mlistatEstudio_x_Solicitud Is Nothing)
		Dim tmp_listatEstudio_x_Solicitud As System.Collections.ArrayList = new System.Collections.ArrayList()
		Dim oldtEstudio_x_Solicitud As tEstudio_x_Solicitud
		For Each oldtEstudio_x_Solicitud in mlistatEstudio_x_Solicitud
			tmp_listatEstudio_x_Solicitud.Add(oldtEstudio_x_Solicitud)
		Next
	mlistatEstudio_x_Solicitud.Clear()
	For Each oldtEstudio_x_Solicitud in tmp_listatEstudio_x_Solicitud
		oldtEstudio_x_Solicitud = Nothing
	Next
	tmp_listatEstudio_x_Solicitud.Clear()
	End If
End Sub

# End Region
# Region "tTitulo_x_Persona"
	private mlistatTitulo_x_Persona As New List (Of tTitulo_x_Persona)
Public Property ListatTitulo_x_Persona As System.Collections.Generic.List(Of tTitulo_x_Persona)
Get
dim mtTitulo_x_Persona As New tTitulo_x_Persona
mlistatTitulo_x_Persona =mtTitulo_x_Persona.TraerFiltradoListOf("IdTitulo",Me.IdTitulo)
Return mlistatTitulo_x_Persona
End Get
Set
RemoveAllListatTitulo_x_Persona()
If Not (Value Is Nothing) Then
Dim otTitulo_x_Persona As tTitulo_x_Persona
	For Each otTitulo_x_Persona in Value
		AddListatTitulo_x_Persona(otTitulo_x_Persona)
	Next
End If
End Set
End Property


		
		
	   Public Sub AddListatTitulo_x_Persona(newtTitulo_x_Persona As tTitulo_x_Persona)
	If (mlistatTitulo_x_Persona Is Nothing) Then
		mlistatTitulo_x_Persona = new System.Collections.Generic.List(Of tTitulo_x_Persona)
	End If
	If Not mlistatTitulo_x_Persona.Contains(newtTitulo_x_Persona) Then
		mlistatTitulo_x_Persona.Add(newtTitulo_x_Persona)
		newtTitulo_x_Persona.tTitulos = Me
	End If
End Sub

	   
	   
	   
	   Public Sub RemoveListatTitulo_x_Persona(oldtTitulo_x_Persona As tTitulo_x_Persona)
	If (mlistatTitulo_x_Persona.Contains(oldtTitulo_x_Persona)) Then
		mlistatTitulo_x_Persona.Remove(oldtTitulo_x_Persona)
		oldtTitulo_x_Persona.tTitulos = Nothing
	End If
End Sub
	
			
			Public Sub RemoveAllListatTitulo_x_Persona()
	If Not (mlistatTitulo_x_Persona Is Nothing)
		Dim tmp_listatTitulo_x_Persona As System.Collections.ArrayList = new System.Collections.ArrayList()
		Dim oldtTitulo_x_Persona As tTitulo_x_Persona
		For Each oldtTitulo_x_Persona in mlistatTitulo_x_Persona
			tmp_listatTitulo_x_Persona.Add(oldtTitulo_x_Persona)
		Next
	mlistatTitulo_x_Persona.Clear()
	For Each oldtTitulo_x_Persona in tmp_listatTitulo_x_Persona
		oldtTitulo_x_Persona = Nothing
	Next
	tmp_listatTitulo_x_Persona.Clear()
	End If
End Sub

# End Region


# Region "Lecturas que devuelven listas"
Public Function TraerTodosListOf() As List(Of tTitulos)
            Dim dtDatos As DataTable
            Dim listatTitulos As New List(Of tTitulos)
            Dim param As [String]
            param = (Me.mNombreEntidad + "_SelectAll")
            dtDatos = Me.ServidorDatos.TraerDataTable(param)
            For Each dr As DataRow In dtDatos.Rows
            Dim mtTitulos As New tTitulos
				mtTitulos.IdTitulo = CType(dr.Item("IdTitulo"),Integer)
				mtTitulos.Traer_objeto()
            	listatTitulos.Add( mtTitulos)
    		Next dr
Return listatTitulos
End Function

Public Function TraerFiltradoListOf(ByVal Filtro As [String], ByVal Args As Object) As List(Of tTitulos)
            Dim dtDatos As DataTable
            Dim param As [String]
            Dim listatTitulos As New List(Of tTitulos)
            param = (Me.mNombreEntidad + "_Tx")
            param = (param + Filtro.ToString)
            dtDatos = Me.ServidorDatos.TraerDataTable(param, Args)
            For Each dr As DataRow In dtDatos.Rows
            Dim mtTitulos As New tTitulos
				mtTitulos.IdTitulo = CType(dr.Item("IdTitulo"),Integer)
				mtTitulos.Traer_objeto()
            	listatTitulos.Add( mtTitulos)
    		Next dr
Return listatTitulos
End Function

Public Function TraerFiltradoLikeListOf(ByVal Filtro As [String], ByVal Args As Object) As List(Of tTitulos)
            Dim dtDatos As DataTable
            Dim param As [String]
            Dim listatTitulos As New List(Of tTitulos)
            param = (Me.mNombreEntidad + "_TxLike")
            param = (param + Filtro.ToString)
            dtDatos = Me.ServidorDatos.TraerDataTable(param, Args)
            For Each dr As DataRow In dtDatos.Rows
            Dim mtTitulos As New tTitulos
				mtTitulos.IdTitulo = CType(dr.Item("IdTitulo"),Integer)
				mtTitulos.Traer_objeto()
            	listatTitulos.Add( mtTitulos)
    		Next dr
Return listatTitulos
End Function
# End Region

End Class
End Namespace
